home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d3
/
dbmail.arc
/
ML0204.PRG
< prev
next >
Wrap
Text File
|
1988-06-18
|
3KB
|
136 lines
*************************************************************
* ML0204.CMD - ROUTINE TO BUILD MAIL LABELS * 9/25/84
*************************************************************
SET TALK OFF
STORE 0 TO COUNT
STORE '"' TO Q
IF TRIGGER#1
STORE Q+TRIM(CMNT1)+Q TO CMNT1
ENDIF
IF TRIGGER=0
STORE Q+TRIM(CMNT2)+Q TO CMNT2
ENDIF
SELECT SECONDARY
USE MLABELT
COPY TO MLSUB2 STRUCTURE
USE MLSUB2
SELECT PRIMARY
USE MLSUB1 INDEX MLZIPX
GOTO TOP
ERASE
@ 2,10 SAY ' 0 Data Records have been processed'
DO WHILE .NOT. EOF
DO CASE
CASE TRIGGER=1 .AND.CP
STORE @(',',CONTACT) TO N
IF N>0
STORE TRIM($(CONTACT,N+1,30-N))+' '+$(CONTACT,1,N-1) TO CONT
ELSE
STORE CONTACT TO CONT
ENDIF
IF $(CONT,1,1)=' '
STORE $(CONT,2,29) TO CONT
ENDIF
STORE CONT TO CMNT1
STORE TITLE TO CMNT2
CASE TRIGGER=2 .AND.CP
STORE @(',',CONTACT) TO N
IF N>0
STORE TRIM($(CONTACT,N+1,30-N))+' '+$(CONTACT,1,N-1) TO CONT
ELSE
STORE CONTACT TO CONT
ENDIF
IF $(CONT,1,1)=' '
STORE $(CONT,2,29) TO CONT
ENDIF
STORE CONT TO CMNT2
CASE TRIGGER=3 .AND.CP
STORE TITLE TO CMNT2
CASE .NOT.(CP .OR. TRIGGER=0)
IF TRIGGER=1
STORE ' ' TO CMNT1
ENDIF
STORE ' ' TO CMNT2
ENDCASE
STORE @(',',INST) TO N
IF N>0
STORE TRIM($(INST,N+1,30-N))+' '+$(INST,1,N-1) TO CONT
ELSE
STORE INST TO CONT
ENDIF
IF $(CONT,1,1)=' '
STORE $(CONT,2,29) TO CONT
ENDIF
STORE CONT TO T1
STORE ADD1 TO T2
STORE VAL(ZIP) TO TZIP
IF ADD2=' '
STORE TRIM(CITY)+' '+STATE+' '+ZIP TO T3
STORE ' ' TO T4
ELSE
STORE ADD2 TO T3
STORE TRIM(CITY)+' '+STATE+' '+ZIP TO T4
ENDIF
IF PHONE#' '
STORE '('+$(PHONE,1,3)+')'+$(PHONE,4,3)+'-'+$(PHONE,7,4)+'e'+$(PHONE,11,4) TO TPHONE
ELSE
STORE ' ' TO TPHONE
ENDIF
STORE TRIM(T1) TO WA
IF WA#' '.OR.LEN(WA)>1
STORE Q+WA+Q TO T1
ENDIF
STORE TRIM(T2) TO WA
IF WA#' '.OR.LEN(WA)>1
STORE Q+WA+Q TO T2
ENDIF
STORE TRIM(T3) TO WA
IF WA#' '.OR.LEN(WA)>1
STORE Q+WA+Q TO T3
ENDIF
STORE TRIM(T4) TO WA
IF WA#' '.OR.LEN(WA)>1
STORE Q+WA+Q TO T4
ENDIF
IF TRIGGER=1
STORE TRIM(CMNT1) TO WA
IF WA#' '.OR.LEN(WA)>1
STORE Q+WA+Q TO CMNT1
ENDIF
STORE TRIM(CMNT2) TO WA
ENDIF
IF TRIGGER>0
IF WA#' '.OR.LEN(WA)>1
STORE Q+WA+Q TO CMNT2
ENDIF
ENDIF
STORE TRIM(FIRSTNAME) TO WA
IF WA#' '.OR.LEN(WA)>1
STORE Q+WA+Q TO WA
ENDIF
SELECT SECONDARY
APPEND BLANK
REPLACE L1 WITH T1;
L2 WITH T2;
L3 WITH T3
REPLACE L4 WITH T4;
L5 WITH CMNT1;
L6 WITH CMNT2
REPLACE SZIP WITH TZIP;
C:DATE WITH DATE();
PHONE WITH TPHONE
REPLACE NAME WITH WA;
RECID WITH P.RECID
STORE COUNT+1 TO COUNT
@ 2,10 SAY COUNT USING '99999'
SELECT PRIMARY
SKIP
ENDDO
RELEASE T1,T2,T3,T4,N,CMNT1,CMNT2
RELEASE TZIP,COUNT,TRIGGER,CONT,TCODES,TPHONE,Q,WA
RETURN
IGGER,CONT,TCODES,TPHONE,Q,WA
RETURN